set.seed(1)
library(Matching)

#N=20, K=20

n=20
k=20
x=matrix(rnorm(n*k),n,k)
t=as.numeric(runif(n)>.5)

b.out<-MatchBalance(t~x, nboots=1000,nmc=1000)

# N=1000, K=10

n=1000
k=10
x=matrix(rnorm(n*k),n,k)
t=as.numeric(runif(n)>.5)
b.out<-MatchBalance(t~x, nboots=1000,nmc=1000)

q()

